---
title: "Dashboard"
output:
flexdashboard::flex_dashboard:
orientation: columns
vertical_layout: fill
source: embed
---
```{r setup, echo = FALSE}
library(tidyverse)
library(p8105.datasets)
library(plotly)
library(flexdashboard)
```
```{r}
data("instacart")
instacart_1 =
instacart %>%
filter(
department == "breakfast"
) %>%
mutate(
product_name = as.factor(product_name),
department = as.factor(department),
order_dow = as.factor(order_dow),
order_hour_of_day = as.factor(order_hour_of_day)
) %>%
select(product_name, department, order_dow, order_hour_of_day)
levels(instacart_1$order_dow) <- c('Sunday', 'Monday', 'Tuesday', 'Wednesday', 'Thursday', 'Friday', 'Saturday')
set.seed(996)
instacart_2 = sample_n(instacart_1, 20000)
```
Column {data-width=600}
-----------------------------------------------------------------------
### Chart A
```{r}
instacart_2 %>%
count(order_dow) %>%
plot_ly(
x = ~order_dow, y = ~n, color = ~order_dow,
type = "bar", colors = "viridis") %>%
layout(
xaxis = list(title = ""),
yaxis = list(title = ""),
barmode = "group",
title = "Breakfast Consumption Comparison For A Week"
)
```
Row {data-height=650}
-----------------------------------------------------------------------
### Chart B
```{r}
instacart_2 %>%
plot_ly(
x = ~order_dow, y = ~order_hour_of_day,
alpha = .5, type = "histogram2d") %>%
layout(
xaxis = list(title = "Week"),
yaxis = list(title = "Hour")
)
```
### Chart C
```{r}
instacart_2 %>%
count(order_hour_of_day) %>%
plot_ly(
x = ~order_hour_of_day, y = ~n,
type = "scatter", mode = "lines") %>%
layout(
xaxis = list(title = ""),
yaxis = list(title = ""),
barmode = "group",
title = "Breakfast Consumption Comparison For 24 Hours"
)
```